//just a script to test things up...Sub Main()	dim f as file	f = system.volume(0).child("Applications")	msgbox(f.name)end sub